[PATCH] <short summary of the patch>

TODO: Put a short summary on the line above and replace this paragraph
with a longer explanation of this change. Complete the meta-information
with other relevant fields (see below for details). To make it easier, the
information below has been extracted from the changelog. Adjust it or drop
it.

Bug-Debian: https://bugs.debian.org/1135720

Gbp-Pq: Name Version_2_7_2pre23

diff --git a/cmpnew/gcl_cmpeval.lsp b/cmpnew/gcl_cmpeval.lsp
index e23621c4904445e3c3426af04c2e32edf90b8abc..e248a5044923cd2579cb04f07f72f6de6eb13784 100644 (file)
--- a/cmpnew/gcl_cmpeval.lsp
+++ b/cmpnew/gcl_cmpeval.lsp
@@ -87,10 +87,11 @@
                  (let ((val (symbol-value form)))
                    (or 
                     (c1constant-value val nil)
-                    (when (functionp val)
-                      (c1function (list (fle val))))
-                    `(location ,(make-info :type (object-type val)) (VV ,(add-constant form))))))
-                                       ;                 ((c1var form))))
+                    `(location
+                      ,(make-info
+                        :type (if (functionp val) #tfunction (object-type val)));FIXME
+                      (VV ,(add-constant form))))))
+;                 ((c1var form))))
                  ((c1expr-avct (c1var form))))) ;FIXME pcl
           ((consp form)
            (let ((fun (car form)))

diff --git a/git.tag b/git.tag
index 243ec70bef99a49a3777140970b603aeb0bc88ba..a56169f87176b189eaeedfa11bf6ace7b07483d0 100644 (file)
--- a/git.tag
+++ b/git.tag
@@ -1 +1 @@
-"Version_2_7_2pre22"
+"Version_2_7_2pre23"